Otherware/Otherware_1_SB_Development.iso/mac/hypercar/xcmd/xcmds.sit/XCMD Miscellany/card_3403.txt

Text File | 1989-02-11 | 5KB | 180 lines

-- card: 3403 from stack: in
-- bmap block id: 0
-- flags: 0000
-- background id: 2589
-- name: Popup Demo
----- HyperTalk script -----
on closeCard
  if visible of card field 1 then
    set lockscreen to true
    send mouseUp to card button "Hide Fields"
    set lockscreen to false
  end if
end closeCard

on arrowKey arb
  visual effect iris close slow
  go card 1
end arrowKey


-- part 7 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=92 top=302 right=324 bottom=192
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Demo Popup
----- HyperTalk script -----
on mouseUp
  repeat with i = 1 to number of cd flds
    PopupField "card field" && i
    lock screen
    unlock screen
  end repeat
end mouseUp



-- part 2 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=6 top=40 right=155 bottom=305
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Scroller


-- part 9 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=37 top=70 right=185 bottom=316
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 8 (field)
-- low flags: 80
-- high flags: 0004
-- rect: left=69 top=100 right=215 bottom=348
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 11 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=100 top=130 right=245 bottom=383
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 10 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=132 top=160 right=275 bottom=415
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: <field name>


-- part 12 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=296 top=300 right=322 bottom=396
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Show Fields
----- HyperTalk script -----
on mouseUp
  put word 1 of the short name of me into cmd
  repeat with i = 1 to number of cd flds
    do cmd && "card field" && i
  end repeat
  if cmd = "Hide"
  then
  set the name of me to "Show Fields"
else
  set the name of me to "Hide Fields"
end if
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=6 top=299 right=328 bottom=37
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  visual effect iris close slow
  go card 1
end mouseUp



-- part contents for card part 2
----- text -----
PopupField displays a field on top of everything else and then waits for a mouse click - it then removes the field. Scrolling fields are displayed using standard document windows, with the text area the same size as the field i.e. the scroll bar width is not included in the window width.

-- part contents for card part 8
----- text -----
PopupField displays a field on top of everything else and then waits for a mouse click - it then removes the field. Shadow fields are displayed using a shadowed dialog window and appear the same as the orignal field.

-- part contents for card part 9
----- text -----
PopupField displays a field on top of everything else and then waits for a mouse click - it then removes the field. Opaque fields are displayed using a double border dialog window, the border being outside of the text area of the original field.

-- part contents for card part 10
----- text -----
PopupField displays a field on top of everything else and then waits for a mouse click - it then removes the field. Transparent fields are displayed using a round corner window, the window is a few pixels larger than the original field so that the text area remains the same.

-- part contents for card part 11
----- text -----
PopupField displays a field on top of everything else and then waits for a mouse click - it then removes the field. Rectangle fields are displayed using a standard plain dialog window and appear the same as the original field.